﻿object BuscadorPaquete: TBuscadorPaquete
  Left = 0
  Top = 0
  Caption = 'BuscadorPaquete'
  ClientHeight = 385
  ClientWidth = 427
  Color = clBtnFace
  OldCreateOrder = False
  OnShow = UniFormShow
  MonitoredKeys.Keys = <>
  PixelsPerInch = 96
  TextHeight = 13
  object pnlBuscador: TUniPanel
    Left = 0
    Top = 0
    Width = 427
    Height = 385
    Align = alClient
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clBtnFace
    TabOrder = 0
    ExplicitTop = -170
    ExplicitWidth = 383
    ExplicitHeight = 372
    object pnlFiltros: TUniPanel
      Left = 1
      Top = 41
      Width = 425
      Height = 136
      Align = alTop
      Anchors = [akLeft, akTop, akRight]
      Color = clBtnFace
      TabOrder = 1
      ExplicitWidth = 381
      object rbComienceServ: TUniRadioButton
        Left = 16
        Top = 115
        Width = 129
        Height = 17
        Checked = True
        Caption = 'Que comience con'
        TabOrder = 1
        ParentFont = False
        Font.Name = 'Century Gothic'
      end
      object rbContengaServ: TUniRadioButton
        Left = 188
        Top = 115
        Width = 113
        Height = 17
        Checked = False
        Caption = 'Que contenga'
        TabOrder = 2
        ParentFont = False
        Font.Name = 'Century Gothic'
      end
      object rgFiltrosServ: TUniRadioGroup
        Left = 16
        Top = 7
        Width = 337
        Height = 59
        Items.Strings = (
          'C'#243'digo'
          'Nombre')
        ItemIndex = 0
        Caption = 'Buscar por:'
        TabOrder = 3
        ParentFont = False
        Font.Name = 'Century Gothic'
        Font.Style = [fsBold]
      end
      object dbBusquedaPaquete: TUniEdit
        Left = 16
        Top = 79
        Width = 337
        Height = 22
        PasswordChar = #0
        CharCase = ecUpperCase
        MaxLength = 0
        CharEOL = #0
        ParentFont = False
        Font.Height = -13
        Font.Name = 'Century Gothic'
        TabOrder = 4
        Color = clWindow
        OnExit = dbBusquedaPaqueteExit
      end
      object rgFiltroCategoría: TUniRadioGroup
        Left = 16
        Top = 3
        Width = 337
        Height = 62
        Items.Strings = (
          'C'#243'digo'
          'Nombre')
        ItemIndex = 0
        OnClick = rgFiltroCategoríaClick
        Caption = 'Buscar por:'
        TabOrder = 5
        ParentFont = False
        Font.Name = 'Century Gothic'
        Font.Style = [fsBold]
      end
    end
    object btnBuscarServ: TUniButton
      Left = 1
      Top = 177
      Width = 425
      Height = 25
      Caption = 'Buscar'
      Anchors = [akLeft, akTop, akRight]
      Align = alTop
      TabOrder = 2
      OnClick = btnBuscarServClick
      ExplicitWidth = 381
    end
    object dbgBusquedaServ: TUniDBGrid
      Left = 1
      Top = 202
      Width = 425
      Height = 175
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
      WebOptions.LoadMaskMsg = 'Please wait...'
      OnDblClick = dbgBusquedaServDblClick
      StripeRows = False
      Align = alTop
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 3
      Columns = <
        item
          FieldName = 'ID_SERVICIO'
          Title.Caption = 'CODIGO'
          Width = 64
          Visible = True
          Alignment = taRightJustify
          Expanded = False
        end
        item
          FieldName = 'DESCRIPCION'
          Title.Caption = 'NOMBRE'
          Width = 1534
          Visible = True
          Expanded = False
        end
        item
          FieldName = 'ESTADO_REGISTRO'
          Title.Caption = 'ESTADO'
          Width = 44
          Visible = True
          Expanded = False
        end>
    end
    object pnlTitulo: TUniPanel
      Left = 1
      Top = 1
      Width = 425
      Height = 41
      Align = alTop
      Anchors = [akLeft, akTop, akRight]
      Color = clSilver
      TabOrder = 4
      ExplicitWidth = 381
      object lblTitulo: TUniLabel
        Left = 1
        Top = 1
        Width = 423
        Height = 39
        Alignment = taCenter
        AutoSize = False
        Caption = 'Buscador Turistik'
        Align = alClient
        Anchors = [akLeft, akTop, akRight, akBottom]
        ParentFont = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -21
        Font.Name = 'Century Gothic'
        Font.Style = [fsBold]
        TabOrder = 1
        ExplicitWidth = 379
      end
    end
  end
  object qryTuristikBusquedaS: TSQLQuery
    MaxBlobSize = -1
    ParamCheck = False
    Params = <>
    SQL.Strings = (
      'SELECT A.*'
      'FROM SERVICIO A'
      ' '
      ''
      ''
      '')
    SQLConnection = UniMainModule.SQLConnection_Reg1
    Left = 304
    Top = 168
    object qryTuristikBusquedaSID_SERVICIO: TIntegerField
      FieldName = 'ID_SERVICIO'
      Required = True
    end
    object qryTuristikBusquedaSID_CATEGORIA: TIntegerField
      FieldName = 'ID_CATEGORIA'
      Required = True
    end
    object qryTuristikBusquedaSDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 255
    end
    object qryTuristikBusquedaSESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      Required = True
      Size = 4
    end
    object qryTuristikBusquedaSOPERADOR: TStringField
      FieldName = 'OPERADOR'
      Size = 10
    end
    object qryTuristikBusquedaSFECHA_CARGA: TDateField
      FieldName = 'FECHA_CARGA'
      Required = True
    end
  end
  object dsTuristikBusquedaS: TDataSource
    DataSet = cdsTuristikBusquedaS
    Left = 304
    Top = 216
  end
  object prvTuristikBusquedaS: TDataSetProvider
    DataSet = qryTuristikBusquedaS
    Options = [poIncFieldProps, poUseQuoteChar]
    Left = 304
    Top = 264
  end
  object cdsTuristikBusquedaS: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'prvTuristikBusquedaS'
    Left = 304
    Top = 312
    object cdsTuristikBusquedaSID_SERVICIO: TIntegerField
      FieldName = 'ID_SERVICIO'
      Required = True
    end
    object cdsTuristikBusquedaSID_CATEGORIA: TIntegerField
      FieldName = 'ID_CATEGORIA'
      Required = True
    end
    object cdsTuristikBusquedaSDESCRIPCION: TStringField
      FieldName = 'DESCRIPCION'
      Size = 255
    end
    object cdsTuristikBusquedaSESTADO_REGISTRO: TStringField
      FieldName = 'ESTADO_REGISTRO'
      Required = True
      Size = 4
    end
    object cdsTuristikBusquedaSOPERADOR: TStringField
      FieldName = 'OPERADOR'
      Size = 10
    end
    object cdsTuristikBusquedaSFECHA_CARGA: TDateField
      FieldName = 'FECHA_CARGA'
      Required = True
    end
  end
end
